Option Explicit
Sub Q_Sample032()
    ']wޥζMicrosoft Shell Controls And Automation
    Dim mySh As Shell32.Shell
    Dim myFldItem As Shell32.FolderItem
    Set mySh = CreateObject("Shell.Application")
    'Lw]SƧ`ơ^
    For Each myFldItem In mySh.NameSpace(ssfPRINTERS).Items
        If myFldItem.Name <> "sWL" Then
        Debug.Print myFldItem.Name
        End If
    Next
    Set mySh = Nothing					'
End Sub
